home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_11 / DoAction.as
Text File  |  2001-11-21  |  949b  |  55 lines
  1. n = "0";
  2. while(n < "4")
  3. {
  4.    n += "1";
  5.    tellTarget("bn" add eval("x" add tn add "1" add n) add eval("y" add tn add "1" add n))
  6.    {
  7.       gotoAndStop(1);
  8.    }
  9. }
  10. tn = random("7") + "1";
  11. ny = "0";
  12. line = "0";
  13. while(ny < "20")
  14. {
  15.    ny += "1";
  16.    nx = "0";
  17.    while(nx < "10")
  18.    {
  19.       nx += "1";
  20.       set("c" add (nx + "20") add (ny + "20"),"0");
  21.       tellTarget("b" add (nx + "20") add (ny + "20"))
  22.       {
  23.          gotoAndStop(1);
  24.       }
  25.    }
  26. }
  27. n = "0";
  28. while(n < "7")
  29. {
  30.    n += "1";
  31.    tellTarget("c" add n)
  32.    {
  33.       gotoAndStop(1);
  34.    }
  35. }
  36. ny = high * "2";
  37. while("0" < ny)
  38. {
  39.    nx = "0";
  40.    while(nx < "10")
  41.    {
  42.       nx += "1";
  43.       if(random("2") == "1")
  44.       {
  45.          set("c" add (nx + "20") add ("41" - ny),"1");
  46.          tellTarget("b" add (nx + "20") add ("41" - ny))
  47.          {
  48.             gotoAndStop(eval("/:lev") + "1");
  49.          }
  50.       }
  51.    }
  52.    ny -= "1";
  53. }
  54. sc = "0";
  55.